Danke für den Code. Hab diesen mal eingebaut, allerdings bekomme ich ab hier einen Laufzeitfehler 1004.
.Range(Cells(lrow, 2), .Cells(lrow2, 2)) = ThisWorkbook.Worksheets("Inventurliste").Range("M4")
Hab schon folgendes veruscht um diesen hierdurch zu lösen:
lrow2 = .Cells(Rows.Count, 4).End(xlUp)
.Range(Cells(lrow, 2), .Cells(lrow2, 2)) = ThisWorkbook.Worksheets("Inventurliste").Range("M4").Value
.Range(Cells(lrow, 3), .Cells(lrow2, 3)) = ThisWorkbook.Worksheets("Inventurliste").Range("N4").Value
oder
lrow2 = .Cells(Rows.Count, 4).End(xlUp)
.Range(.Cells(lrow, 2), .Cells(lrow2, 2)) = ThisWorkbook.Worksheets("Inventurliste").Range("M4")
.Range(.Cells(lrow, 3), .Cells(lrow2, 3)) = ThisWorkbook.Worksheets("Inventurliste").Range("N4")
oder
lrow2 = .Cells(.Rows.Count, 4).End(xlUp)
.Range(Cells(lrow, 2), .Cells(lrow2, 2)) = ThisWorkbook.Worksheets("Inventurliste").Range("M4")
.Range(Cells(lrow, 3), .Cells(lrow2, 3)) = ThisWorkbook.Worksheets("Inventurliste").Range("N4")
=ThisWorkbook.Worksheets("Inventurliste").Range("N4") das scheint aufjedenfall zu funktionieren.
Hast du ne Idee was das sein könnte?
|